www.gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\Include\conndb.asp

    <%
Option Explicit	'要求变量声明，这样所有包含此文件的都需要声明变量

dim conn		'数据库连接
dim connstr		'连接字符串
dim db			'数据库文件路径

db = "../../Database/trfhandset.mdb"	'演示时用ACCESS数据库
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
'连接 SQL Server时使用下面的连接字符串
'connstr = "Provider=SQLOLEDB; User ID=sa; Password=; Initial Catalog=trfhandset; Data Source=localhost"
Set conn  =  Server.CreateObject("ADODB.Connection")
if err Then
	err.clear
end if

conn.Open connstr

'关闭数据库连接，在每页中调用此函数，将连接放入连接池
sub CloseConn()
	conn.Close()
	Set conn  =  Nothing
end sub

'替换单引号
function RealString(strSrc)
	RealString  =  Replace(Trim(strSrc), "'", "''")
end function
%>